home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
MAKESUM.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
1KB
|
17 lines
;;; compiled by @win386 on Sat Mar 13 01:38:54 1993
;;; from file c:/src/lucid-19.4/lisp/prim/makesum.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'make-command-summary #[nil "└┴!ê┬ïê├Éèqê╟ ê╚╔!êebê`╩yê`|ê╦╠═╬#½å╧╨!ê¬sebê╦╤═╬#½å╧╥!ê¬sebê╦╙═╬#½å╧╘!ê¬sebê╦╒═╬#½å╧╓!ê¬sebê╦╫═╬#½å╧╪!ê¬sebê┘┌═╬#½Ö█uê▄▌▒ê╦▐═╬#½ë`█yê`|ê¬pebê▀α ßΓOπ▒ê`Σyê`|ê╩yêm¼Ö`%┘µ═╬#¼âdbêτ%`\"ê╩yê)¬deb*æê└Φ!ç" [message "Making command summary..." ((describe-bindings)) "*Summary*" mode-name cur-mode standard-output erase-buffer insert-buffer-substring "*Help*" 1 search-forward " " nil t replace-match " " "-@ " "-SP" " .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" -1 " for " " Mode" "??\n" "Emacs command summary, " current-time-string 0 10 ".\n" 2 beg "^$" double-column "Making command summary...done"] 5 "\
Make a summary of current key bindings in the buffer *Summary*.
Previous contents of that buffer are killed first." nil])
(fset 'double-column #[(start end) "└ëëëëd Z╚ \"ë╩X¼╩T╦Ñ bêèyêW½¢T`è└ê`){ëB`╩yê`|ê¬_)ƒë½ô└ê╠jê@cê╩yêAë¼md\nZb.ç" [nil end from-end nlines lines line cnt half count-lines start 1 2 41] 8 nil "r"])